|
<%
DIM oRs
DIM Dbobj
DIM rsprint
Dim dpages
rsprint = Request.QueryString("id")
strSQL = "SELECT * FROM doctors_20071025 WHERE deptid = " & rsprint & " ORDER BY chair DESC, fname ASC;"
SET DbObj = Server.CreateObject("ADODB.Connection")
DbObj.Open "DBQ=C:/hshome/smonbo1/huhealthcare.com/database/physicians.mdb;Driver={Microsoft Access Driver (*.mdb)};"
SET oRs = DbObj.Execute(strSQL)
%>
Department of <% = oRs.Fields("dept") %>
Physicians
<%
DO WHILE NOT oRs.EOF
on error resume next
%>
<% if oRs.Fields("chair").Value <> "" then %>
"><% Response.Write(oRs("fname"))%> <% Response.Write(oRs("mname"))%> <% Response.Write(oRs("lname"))%>, <% Response.Write(oRs("suffix"))%> <% = oRs.Fields("chair") %>
<% else %>
"><% Response.Write(oRs("fname"))%> <% Response.Write(oRs("mname"))%> <% Response.Write(oRs("lname"))%>, <% Response.Write(oRs("suffix"))%>
<% End If %>
<% oRs.MoveNext %>
<% Loop %>
Contact Information
<% if rsprint = 1 then %>
<% end if %>
<% if rsprint = 2 then %>
<% end if %>
<% if rsprint = 3 then %>
<% end if %>
<% if rsprint = 4 then %>
<% end if %>
<% if rsprint = 5 then %>
<% end if %>
<% if rsprint = 6 then %>
<% end if %>
<% if rsprint = 7 then %>
<% end if %>
<% if rsprint = 8 then %>
<% end if %>
<% if rsprint = 9 then %>
<% end if %>
<% if rsprint = 10 then %>
<% end if %>
<% if rsprint = 11 then %>
<% end if %>
<% if rsprint = 12 then %>
<% end if %>
<% if rsprint = 13 then %>
<% end if %>
<% if rsprint = 14 then %>
<% end if %>
<% if rsprint = 15 then %>
<% end if %>
<% if rsprint = 16 then %>
<% end if %>
<% DbObj.Close 'Close the database connection
SET DbObj = Nothing 'Clean up after yourself
%>
|